home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)m5.d64 / rom emulator.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  676b  |  25 lines
  1. 100 ON A GOTO 400,400,400,500
  2. 110 PRINT "ROM EMULATOR FOR COMMODORE 64"
  3. 120 PRINT "           JIM BUTTERFIELD"
  4. 130 PRINT " THIS PROGRAM ENABLES YOUR C64 TO"
  5. 140 PRINT "USE THE LOGIC OF OTHER 64 COMPUTERS."
  6. 145 PRINT " IT MAY NOT BE ABLE TO WORK IF CERTAIN"
  7. 147 PRINT "ADVANCED HARDWRAE OF SOFTWARE IF USED."
  8. 150 DATA R1,"ROM 1 - PRE 1983",14,6,154
  9. 160 DATA R2,"ROM 2 -     1983",14,6,154
  10. 170 DATA R3,"ROM 3 - AFTER 83",14,6,154
  11. 180 DATA SX,"SX-64 EXEC  1983",3,1,31
  12. 190 DIM N$(4),L$(4),B0(4),B1(4),C(4)
  13. 200 FOR J=1 TO 4
  14. 210 READ N$(J),L$(J),B0(J),B1(J),C(J)
  15. 220 PRINT STR$(J);": ";L$(J)
  16. 230 NEXT J
  17. 240 PRINT
  18. 250 INPUT "PICK ONE (1-4)";J
  19. 260 POKE 53280,B0(J):POKE 53281,B1(J)
  20. 400 A=A+1
  21. 410 LOAD N$(J)+STR$(A),8,1
  22. 420 STOP
  23. 500 PRINT CHR$(C(J));
  24. 510 POKE 1,53
  25.